home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / RC_Brian's_Theme.AMOS / RC_Brian's_Theme.amosSourceCode
AMOS Source Code  |  1995-12-30  |  717b  |  32 lines
  1. 'Brian's Theme.  
  2. 'In 64 colour HAM mode!
  3. 'Originally written for the Apple ][ 
  4. 'Converted to the Amiga by:
  5. ' Robin Crawley of Hyper-Galactic MegaSoftware inc.  
  6. 'Who Brian is or was I don't know -
  7. 'That's just the name the original program had.
  8. '
  9. Screen Open 0,320,200,64,Lowres
  10. Curs Off 
  11. Hide 
  12. Repeat 
  13.    Cls 2
  14.    A=Rnd(130)+20
  15.    B=Rnd(70)+10
  16.    LINE_COLOUR=Rnd(64)
  17.    I=(Rnd(4)+2)
  18.    For X=0 To 320 Step I
  19.       For S=0 To 1
  20.          Ink LINE_COLOUR*S
  21.          Polyline(X+S),0 To A,B To(320-X-S),200
  22.       Next S
  23.    Next X
  24.    LINE_COLOUR=Rnd(64)
  25.    For Y=0 To 200 Step I
  26.       For S=0 To 1
  27.          Ink LINE_COLOUR*S
  28.          Polyline 320,(Y+S) To A,B To 0,(200-Y-S)
  29.       Next S
  30.    Next Y
  31.    Wait 100
  32. Until False